home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Internet Tools 1993 July / Internet Tools.iso / RockRidge / mail / metamail / contrib / mms / mmstest.sh < prev    next >
Encoding:
Linux/UNIX/POSIX Shell Script  |  1993-05-04  |  1.7 KB  |  77 lines
  1. #!/bin/sh
  2. echo "*** TESTING THE MMS: MetaMail-Server ***"
  3.  
  4.  
  5. if [ "$MMSERVER" != "" ]; then
  6.     MMS="mms -host $MMSERVER"
  7. #    PASSWORD=`cat $HOME/.mmsprofile`
  8. #    PASSFILE=".mmspasswd"
  9.     echo "### connecting to internet metamail server (mms@$MMSERVER) ###"
  10. else
  11.     MMS="mms -server"
  12.     echo "(setenv MMSERVER to check the internet installation)"
  13.     echo "### local mms ###"
  14. fi
  15.  
  16. if [ "$MMSERVER" = "" -o "$MMSERVER" = `hostname` ]; then
  17.     MIMEFILE="/tmp/mms.mime.$USER"
  18. fi
  19.  
  20.  
  21. REQMARK="<REQUEST>"
  22. SEND(){
  23.     echo "ECHO $REQMARK $M"
  24.     echo "$M"
  25. }
  26. SENDBODY(){
  27.     echo "$B"
  28. }
  29. ENDOFBODY(){
  30.     echo "."
  31. }
  32.  
  33. AUDIOFILE="/usr/demo/SOUND/sounds/cowbell.au"
  34. XWDTMP="/tmp/mms.xwd.$$"
  35. #
  36. #
  37. #
  38. (
  39. #    if [ "$MMSERVER" != "" ]; then
  40. #        M="USER $USER $PASSFILE $PASSWORD";    SEND;
  41. #    fi
  42.     M="ENV TERM $TERM";                SEND;
  43.     M="ADDHEAD To $USER";                SEND;
  44.     M='SUBJECT MMS TEST $@#M#M#S$N%F%9%H(J';        SEND;
  45.     M="ADDTEXT bold";                SEND;
  46.     B="This text is composed with MMS on ";        SENDBODY;
  47.     B=`hostname`;                    SENDBODY;
  48.                             ENDOFBODY;
  49.     M="PRINT";                    SEND;
  50.     if [ "$DISPLAY" != "" ]; then
  51.         M="ENV DISPLAY $DISPLAY";        SEND;
  52.         M="ENCLOSE audio/basic";        SEND;
  53.         mmencode $AUDIOFILE;            ENDOFBODY;
  54.         M="SH xwd -id $WINDOWID -out $XWDTMP";    SEND;
  55.         M="ENCLOSE image/xwd $XWDTMP";         SEND;
  56.         M="SH rm $XWDTMP";            SEND;
  57.     fi
  58.     M="SKELETON";                    SEND;
  59.     M="VIEW";                    SEND;
  60.     if [ "$MIMEFILE" != "" ]; then
  61.         M="WRITE $MIMEFILE";            SEND;
  62.     fi
  63.     M="QUIT";                    SEND;
  64.  
  65. ) | $MMS | awk \
  66.     '{    if($3 == "'$REQMARK'"){\
  67.             printf "%s %s %s %s\n",$4,$5,$6,$7 }\
  68.         else{    printf "\t%s\n",$0 }\
  69.     }'
  70.  
  71. if [ "$MIMEFILE" != "" ]; then
  72.     echo "*******************************************************"
  73.     echo "A sample MIME message was written to $MIMEFILE, Try"
  74.     echo '% '"metamail $MIMEFILE"
  75. fi
  76.  
  77.